clear; clc;
x=0:0.005:1;
f=zeros(1,201);
g=zeros(1,201);
for i=1:201
    f(i)=(x(i)*exp(-x(i)))/(1-exp(-x(i)));
    g(i)=exp(x(i))/x(i);
end
figure;
hold on;
axis([0,1,0,100]);
l(1)=plot(x,f,'Linewidth',2);
l(2)=plot(x,g,'Linewidth',2);

legendText = legend([l(1),l(2)],'cond_f','cond_A','FontSize', 18,'FontName','problem_A','location','northeast');